home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / comms / mosiac / mosaic_1.2_nonet / rexx / soxaudio.rexx < prev   
OS/2 REXX Batch file  |  1978-06-29  |  1KB  |  42 lines
  1. /* SOXAudio.rexx */
  2. /* Plays sun audio files, used to be more versatile, but        */
  3. /* For mosaic 2.0 and above, file extensions can't be relied on */
  4. /* we would have used oplay, but it sounds awful on some of the files on the
  5.    net ! */
  6. options RESULTS
  7. ARG filename screen
  8. /* TRACE ai
  9.    PARSE UPPER VAR filename filehead'.'fileext */
  10. if ~show(l, "rexxsupport.library") then
  11.     if ~addlib("rexxsupport.library", 0, -30) then
  12.     EXIT
  13. IF SHOW('P',"INFOWIN.1") THEN DO
  14.     ADDRESS INFOWIN.1
  15.     'MESSAGE FROM soxaudio.rexx MESSAGE '|| 'rename '||filename||' '||filename||'.au'
  16.     'MESSAGE FROM soxaudio.rexx MESSAGE '|| 'sox -t ul -r 8000 '||filename||'.au -v 10 -t 8svx '||filename||'.8svx'
  17.      'MESSAGE FROM soxaudio.rexx MESSAGE '|| 'sound '||filename||'.8svx'
  18.     'MESSAGE FROM soxaudio.rexx MESSAGE '|| 'multiview '||filename||'.8svx '||TRIM(screen)
  19.      'MESSAGE FROM soxaudio.rexx MESSAGE '|| '  Delay(30)'
  20. END 
  21. ADDRESS COMMAND
  22. 'rename '||filename||' '||filename||'.au'
  23. 'sox -t ul -r  8000 '||filename||'.au -v 10 -t 8svx '||filename||'.8svx'
  24. /* If you have UPD installed, USE THIS */
  25. IF SHOW('P',"PLAY") THEN DO
  26.     ADDRESS PLAY 'file '||filename||'.8svx'
  27. END
  28. ELSE DO 
  29.     /* Otherwise use sound, if it is there */
  30.     'sound '||filename||'.8svx'
  31.     /* Or multiview */
  32. /*    'multiview '||filename||'.8svx '||screen */
  33. END 
  34. ADDRESS COMMAND
  35. Delay(30)
  36. 'DELETE >nil: <nil: '||filename 
  37. 'DELETE >nil: <nil: '||filename||'.iff'
  38. exit
  39.  
  40.  
  41.  
  42.